MPS801.
        100 data 240,152,148,148,244,140,252
        110 fori=1to7
        120 read q:a$=a$+chr$(q)
        130 next i
        140 data 255,128,128,128,255,128,255
        150 fori=1to7
        160 read q:b$=b$+chr$(q)
        170 next i
        180 data 128,128,128,128,128,128,128
        190 fori=1to7
        200 read q:c$=c$+chr$(q)
        210 next i
        220 data 255,129,129,129,128,128,128
        230 fori=1to7
        240 read q:d$=d$+chr$(q)
        250 next i
        260 print chr$(147):poke 646,1:poke53280,0:poke53281,0
        270 print"Numero di elementi da confrontare"
        280 input "Variabile";n
        290 input "Estensione";e
        300 dim p(e,n)
        310 fori=0toe:p(i,0)=3:next
        320 fori=1ton
        330 readv
        340 p((e+1)-v,i)=2:v=v-1
        350 for c=(e+1)-v to e
        360 p(c,i)=1
        370 next c:next i
        380 open2,4
        390 fori=0toe
        400 forc=0ton
        410 x=p(i,c)
        420 if x=3 then print#2,chr$(8)d$;chr$(8) c$;
        430 if x=1 then print#2,chr$(8)b$;chr$(8) c$;
        440 if x=2 then print#2,chr$(8)a$;chr$(8) c$;
        450 if x=0 then print#2,chr$(8)c$;c$;
        460 next c
        470 print#2,chr$(8)
        480 next i
        490 data 16,2